home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Updates⁄New / AppointmentMaster™ v1.1.1 / card_3049.txt < prev    next >
Encoding:
Text File  |  1988-06-01  |  42.2 KB  |  1,037 lines

  1. -- card: 3049 from stack: in.1 
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2621
  5. -- name: ApptSchedule
  6.  
  7.  
  8. -- part 5 (field)
  9. -- low flags: 81
  10. -- high flags: 0004
  11. -- rect: left=140 top=151 right=170 bottom=436
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: firstQtrHour
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   get word 1 of card field id 5
  23.   if it is empty then exit mouseUp
  24.   put it into temp1
  25.   hide card field id 5
  26.   hide card field id 9
  27.   hide card field id 10
  28.   hide card field id 11
  29.   hide card field id 12
  30.   put bkgnd field id 5 into temp2
  31.   visual effect zoom in
  32.   go background id 3622
  33.   find temp2 of bkgnd field id 2
  34.   find temp1 of bkgnd field id 1
  35.   play boing
  36. end mouseUp
  37.  
  38.  
  39.  
  40.  
  41. -- part 9 (field)
  42. -- low flags: 81
  43. -- high flags: 0004
  44. -- rect: left=140 top=170 right=189 bottom=436
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 0
  48. -- font id: 3
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: secondQtrHour
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   get word 1 of card field id 9
  56.   if it is empty then exit mouseUp
  57.   put it into temp1
  58.   hide card field id 5
  59.   hide card field id 9
  60.   hide card field id 10
  61.   hide card field id 11
  62.   hide card field id 12
  63.   put bkgnd field id 5 into temp2
  64.   visual effect zoom in
  65.   go background id 3622
  66.   find temp2 of bkgnd field id 2
  67.   find temp1 of bkgnd field id 1
  68.   play boing
  69. end mouseUp
  70.  
  71.  
  72. -- part 10 (field)
  73. -- low flags: 81
  74. -- high flags: 0004
  75. -- rect: left=140 top=189 right=208 bottom=437
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 0
  79. -- font id: 3
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: thirdQtrHour
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   get word 1 of card field id 10
  87.   if it is empty then exit mouseUp
  88.   put it into temp1
  89.   hide card field id 5
  90.   hide card field id 9
  91.   hide card field id 10
  92.   hide card field id 11
  93.   hide card field id 12
  94.   put bkgnd field id 5 into temp2
  95.   visual effect zoom in
  96.   go background id 3622
  97.   find temp2 of bkgnd field id 2
  98.   find temp1 of bkgnd field id 1
  99.   play boing
  100. end mouseUp
  101.  
  102.  
  103. -- part 11 (field)
  104. -- low flags: 81
  105. -- high flags: 0004
  106. -- rect: left=141 top=208 right=227 bottom=437
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 0
  110. -- font id: 3
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: fourthQtrHour
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   get word 1 of card field id 11
  118.   if it is empty then exit mouseUp
  119.   put it into temp1
  120.   hide card field id 5
  121.   hide card field id 9
  122.   hide card field id 10
  123.   hide card field id 11
  124.   hide card field id 12
  125.   put bkgnd field id 5 into temp2
  126.   visual effect zoom in
  127.   go background id 3622
  128.   find temp2 of bkgnd field id 2
  129.   find temp1 of bkgnd field id 1
  130.   play boing
  131. end mouseUp
  132.  
  133.  
  134. -- part 12 (field)
  135. -- low flags: 81
  136. -- high flags: 0004
  137. -- rect: left=151 top=46 right=152 bottom=424
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: infoField
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.   hide card field id 12
  149.   hide card field id 5
  150.   hide card field id 9
  151.   hide card field id 10
  152.   hide card field id 11
  153.   put "Smile it creates Happiness." into message
  154.   wait 2 seconds
  155.   hide message box
  156.   hide menubar
  157. end mouseUp
  158.  
  159.  
  160. -- part 23 (field)
  161. -- low flags: 80
  162. -- high flags: 0007
  163. -- rect: left=46 top=139 right=236 bottom=500
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 0
  167. -- font id: 3
  168. -- text size: 9
  169. -- style flags: 0
  170. -- line height: 12
  171. -- part name: 
  172. ----- HyperTalk script -----
  173. stack "AppointmentMaster v1.1.1 "
  174. on closeStack
  175.   global whosThere
  176.   put "Have Yourself a SUPER GOOD DAY" && whosThere && "!" into message box
  177.   doMenu "Compact Stack"
  178.   RemShow Meo
  179.   show menubar
  180.   hide message box
  181.   visual effect zoom out
  182. end closeStack
  183.  
  184.  
  185.  
  186. on update theDate
  187.   global whosThere
  188.   ask "What is your name, Please?" with field id 26
  189.   put it into field id 26
  190.   put it into whosThere
  191.   put the long date into field id 5 of card id 3049
  192.   theSchedule schedule
  193. end update
  194.  
  195.  
  196.  
  197. on theSchedule schedule
  198.   set cursor to 4
  199.   put empty into field id 6
  200.   put empty into field id 7
  201.   put empty into field id 8
  202.   put empty into field id 9
  203.   put empty into field id 10
  204.   put empty into field id 11
  205.   put empty into field id 12
  206.   put empty into field id 13
  207.   put empty into field id 14
  208.   put empty into field id 15
  209.   put empty into field id 16
  210.   put empty into field id 17
  211.   put empty into field id 30   --field "Links" is a hidden field
  212.   get field id 5
  213.   convert it to seconds
  214.   put it into thisDay
  215.   put 1 into lineNumber
  216.   repeat with x = 2 to (the number of cards)
  217.     get (field id 2 of card x)  --field "Date"
  218.     if it is empty then next repeat
  219.     convert it to seconds
  220.     if it = thisDay then
  221.       put (the id of card x) into line lineNumber of field "Links"
  222.       add 1 to lineNumber
  223.       get field id 47 of card x  --field "My Name"
  224.       if it = field id 26 of card id 3049 then
  225.         get field id 43 of card x  --field "Appointment Time"
  226.         put it into apptTime
  227.         get field id 1 of card x   --field "ClientName"
  228.         put it into temp2
  229.         put the number of chars of temp2 into countChar
  230.         put 34 into maxChar
  231.         subtract countChar from maxChar
  232.         get field id 6 of card x  --field "ApptDetails"
  233.         put it into temp3
  234.         put "," after char maxChar of temp3
  235.         get the number of items of temp3
  236.         put empty into item 2 to it of temp3
  237.         put empty into last char of temp3
  238.         get apptTime  --a variable holding the appointment time.
  239.         if it ‚â• 0900 and it ‚⧠0914 or it ‚â• 900 and it ‚⧠914 or it = 9 then
  240.           put temp2 & "‚Äî" & temp3 into line 1 of field id 6
  241.         else
  242.           if it ‚â• 0915 and it ‚⧠0929 or it ‚â• 915 and it ‚⧠929 then
  243.             put temp2 && "‚Äî" & temp3 into line 2 of field id 6
  244.           else
  245.             if it ‚â• 0930 and it ‚⧠0944 or it ‚â• 930 and it ‚⧠944 then
  246.               put temp2 && "‚Äî" & temp3 into line 3 of field id 6
  247.             else
  248.               if it ‚â• 0945 and it ‚⧠0959 or it ‚â• 945 and it ‚⧠959 then
  249.                 put temp2 && "‚Äî" & temp3 into line 4 of field id 6
  250.               else
  251.                 if it ‚â• 1000 and it ‚⧠1014 or it = 10 then
  252.                   put temp2 && "‚Äî" & temp3 into line 1 of field id 7
  253.                 else
  254.                   if it ‚â• 1015 and it ‚⧠1029 then
  255.                     put temp2 && "‚Äî" & temp3 into line 2 of field id 7
  256.                   else
  257.                     if it ‚â• 1030 and it ‚⧠1044 then
  258.                       put temp2 && "‚Äî" & temp3 into line 3 of field id 7
  259.                     else
  260.                       if it ‚â• 1045 and it ‚⧠1059 then
  261.                         put temp2 && "‚Äî" & temp3 into line 4 of field id 7
  262.                       else
  263.                         if it ‚â• 1100 and it ‚⧠1114 or it = 11 then
  264.                           put temp2 && "‚Äî" & temp3 into line 1 of field id 8
  265.                         else
  266.                           if it ‚â• 1115 and it ‚⧠1129 then
  267.                             put temp2 && "‚Äî" & temp3 into line 2 of field id 8
  268.                           else
  269.                             if it ‚â• 1130 and it ‚⧠1144 then
  270.                               put temp2 && "‚Äî" & temp3 into line 3 of field id 8
  271.                             else
  272.                               if it ‚â• 1145 and it ‚⧠1159 then
  273.                                 put temp2 && "‚Äî" & temp3 into line 4 of field id 8
  274.                               else
  275.                                 if it ‚â• 1200 and it ‚⧠1214 or it = 12 then
  276.                                   put temp2 && "‚Äî" & temp3 into line 1 of field id 9
  277.                                 else
  278.                                   if it ‚â• 1215 and it ‚⧠1229 then
  279.                                     put temp2 && "‚Äî" & temp3 into line 2 of field id 9
  280.                                   else
  281.                                     if it ‚â• 1230 and it ‚⧠1244 then
  282.                                       put temp2 && "‚Äî" & temp3 into line 3 of field id 9
  283.                                     else
  284.                                       if it ‚â• 1245 and it ‚⧠1259 then
  285.                                         put temp2 && "‚Äî" & temp3 into line 4 of field id 9
  286.                                       else
  287.                                         if it ‚â• 100 and it ‚⧠114 or it ‚â• 1300 and it ‚⧠1314 or it = 1 then
  288.                                           put temp2 && "‚Äî" & temp3 into line 1 of field id 10
  289.                                         else
  290.                                           if it ‚â• 115 and it ‚⧠129 or it ‚â• 1315 and it ‚⧠1329 then
  291.                                             put temp2 && "‚Äî" & temp3 into line 2 of field id 10
  292.                                           else
  293.                                             if it ‚â• 130 and it ‚⧠144 or it ‚â• 1330 and it ‚⧠1344 then
  294.                                               put temp2 && "‚Äî" & temp3 into line 3 of field id 10
  295.                                             else
  296.                                               if it ‚â• 145 and it ‚⧠159 or it ‚â• 1345 and it ‚⧠1359 then
  297.                                                 put temp2 && "‚Äî" & temp3 into line 4 of field id 10
  298.                                               else
  299.                                                 if it ‚â• 200 and it ‚⧠214 or it ‚â• 1400 and it ‚⧠1414 or it = 2 then
  300.                                                   put temp2 && "‚Äî" & temp3 into line 1 of field id 11
  301.                                                 else
  302.                                                   if it ‚â• 215 and it ‚⧠229 or it ‚â• 1415 and it ‚⧠1429 then
  303.                                                     put temp2 && "‚Äî" & temp3 into line 2 of field id 11
  304.                                                   else
  305.                                                     if it ‚â• 230 and it ‚⧠244 or it ‚â• 1430 and it ‚⧠1444 then
  306.                                                       put temp2 && "‚Äî" & temp3 into line 3 of field id 11
  307.                                                     else
  308.                                                       if it ‚â• 245 and it ‚⧠259 or it ‚â• 1445 and it ‚⧠1459 then
  309.                                                         put temp2 && "‚Äî" & temp3 into line 4 of field id 11
  310.                                                       else
  311.                                                         if it ‚â• 300 and it ‚⧠314 or it ‚â• 1500 and it ‚⧠1514 or it = 3 then
  312.                                                           put temp2 && "‚Äî" & temp3 into line 1 of field id 12
  313.                                                         else
  314.                                                           if it ‚â• 315 and it ‚⧠329 or it ‚â• 1515 and it ‚⧠1529 then
  315.                                                             put temp2 && "‚Äî" & temp3 into line 2 of field id 12
  316.                                                           else
  317.                                                             if it ‚â• 330 and it ‚⧠344 or it ‚â• 1530 and it ‚⧠1544 then
  318.                                                               put temp2 && "‚Äî" & temp3 into line 3 of field id 12
  319.                                                             else
  320.                                                               if it ‚â• 345 and it ‚⧠359 or it ‚â• 1545 and it ‚⧠1559 then
  321.                                                                 put temp2 && "‚Äî" & temp3 into line 4 of field id 12
  322.                                                               else
  323.                                                                 if it ‚â• 400 and it ‚⧠414 or it ‚â• 1600 and it ‚⧠1614 or it = 4 then
  324.                                                                   put temp2 && "‚Äî" & temp3 into line 1 of field id 13
  325.                                                                 else
  326.                                                                   if it ‚â• 415 and it ‚⧠429 or it ‚â• 1615 and it ‚⧠1629 then
  327.                                                                     put temp2 && "‚Äî" & temp3 into line 2 of field id 13
  328.                                                                   else
  329.                                                                     if it ‚â• 430 and it ‚⧠444 or it ‚â• 1630 and it ‚⧠1644 then
  330.                                                                       put temp2 && "‚Äî" & temp3 into line 2 of field id 13
  331.                                                                     else
  332.                                                                       if it ‚â• 445 and it ‚⧠459 or it ‚â• 1645 and it ‚⧠1659 then
  333.                                                                         put temp2 && "‚Äî" & temp3 into line 4 of field id 13
  334.                                                                       else
  335.                                                                         if it ‚â• 500 and it ‚⧠514 or it ‚â• 1700 and it ‚⧠1714 or it = 5 then
  336.                                                                           put temp2 && "‚Äî" & temp3 into line 1 of field id 14
  337.                                                                         else
  338.                                                                           if it ‚â• 515 and it ‚⧠529 or it ‚â• 1715 and it ‚⧠1729 then
  339.                                                                             put temp2 && "‚Äî" & temp3 into line 2 of field id 14
  340.                                                                           else
  341.                                                                             if it ‚â• 530 and it ‚⧠544 or it ‚â• 1730 and it ‚⧠1744 then
  342.                                                                               put temp2 && "‚Äî" & temp3 into line 3 of field id 14
  343.                                                                             else
  344.                                                                               if it ‚â• 545 and it ‚⧠559 or it ‚â• 1745 and it ‚⧠1759 then
  345.                                                                                 put temp2 && "‚Äî" & temp3 into line 4 of field id 14
  346.                                                                               else
  347.                                                                                 if it ‚â• 600 and it ‚⧠614 or it ‚â• 1800 and it ‚⧠1814 or it = 6 then
  348.                                                                                   put temp2 && "‚Äî" & temp3 into line 1 of field id 15
  349.                                                                                 else
  350.                                                                                   if it ‚â• 615 and it ‚⧠629 or it ‚â• 1815 and it ‚⧠1829 then
  351.                                                                                     put temp2 && "‚Äî" & temp3 into line 2 of field id 15
  352.                                                                                   else
  353.                                                                                     if it ‚â• 630 and it ‚⧠644 or it ‚â• 1830 and it ‚⧠1844 then
  354.                                                                                       put temp2 && "‚Äî" & temp3 into line 3 of field id 15
  355.                                                                                     else
  356.                                                                                       if it ‚â• 645 and it ‚⧠659 or it ‚â• 1845 and it ‚⧠1859 then
  357.                                                                                         put temp2 && "‚Äî" & temp3 into line 4 of field id 15
  358.                                                                                       else
  359.                                                                                         if it ‚â• 700 and it ‚⧠714 or it ‚â• 1900 and it ‚⧠1914 or it = 7 then
  360.                                                                                           put temp2 && "‚Äî" & temp3 into line 1 of field id 16
  361.                                                                                         else
  362.                                                                                           if it ‚â• 715 and it ‚⧠729 or it ‚â• 1915 and it ‚⧠1929 then
  363.                                                                                             put temp2 && "‚Äî" & temp3 into line 2 of field id 16
  364.                                                                                           else
  365.                                                                                             if it ‚â• 730 and it ‚⧠744 or it ‚â• 1930 and it ‚⧠1944 then
  366.                                                                                               put temp2 && "‚Äî" & temp3 into line 3 of field id 16
  367.                                                                                             else
  368.                                                                                               if it ‚â• 745 and it ‚⧠759 or it ‚â• 1945 and it ‚⧠1959 then
  369.                                                                                                 put temp2 &&"‚Äî" & temp3 into line 4 of field id 16
  370.                                                                                               else
  371.                                                                                                 if it ‚â• 800 and it ‚⧠814 or it ‚â• 2000 and it ‚⧠2014 or it = 8 then
  372.                                                                                                   put temp2 && "‚Äî" & temp3 into line 1 of field id 17
  373.                                                                                                 else
  374.                                                                                                   if it ‚â• 815 and it ‚⧠829 or it ‚â• 2015 and it ‚⧠2029 then
  375.                                                                                                     put temp2 && "‚Äî" & temp3 into line 2 of field id 17
  376.                                                                                                   else
  377.                                                                                                     if it ‚â• 830 and it ‚⧠844 or it ‚â• 2030 and it ‚⧠2044 then
  378.                                                                                                       put temp2 && "‚Äî" & temp3 into line 3 of field id 17
  379.                                                                                                     else
  380.                                                                                                       if it ‚â• 845 and it ‚⧠859 or it ‚â• 2045 and it ‚⧠2059 then
  381.                                                                                                         put temp2 && "‚Äî" & temp3 into line 4 of field id 17
  382.                                                                                                       end if
  383.                                                                                                     end if
  384.                                                                                                   end if
  385.                                                                                                 end if
  386.                                                                                               end if
  387.                                                                                             end if
  388.                                                                                           end if
  389.                                                                                         end if
  390.                                                                                       end if
  391.                                                                                     end if
  392.                                                                                   end if
  393.                                                                                 end if
  394.                                                                               end if
  395.                                                                             end if
  396.                                                                           end if
  397.                                                                         end if
  398.                                                                       end if
  399.                                                                     end if
  400.                                                                   end if
  401.                                                                 end if
  402.                                                               end if
  403.                                                             end if
  404.                                                           end if
  405.                                                         end if
  406.                                                       end if
  407.                                                     end if
  408.                                                   end if
  409.                                                 end if
  410.                                               end if
  411.                                             end if
  412.                                           end if
  413.                                         end if
  414.                                       end if
  415.                                     end if
  416.                                   end if
  417.                                 end if
  418.                               end if
  419.                             end if
  420.                           end if
  421.                         end if
  422.                       end if
  423.                     end if
  424.                   end if
  425.                 end if
  426.               end if
  427.             end if
  428.           end if
  429.         end if
  430.       end if
  431.     end if
  432.   end repeat
  433. end theSchedule
  434.  
  435.  
  436.  
  437. on RemShow Meo
  438.   get the date
  439.   convert it to dateItems
  440.   if item 3 of it = 1 or item 3 of it =15 then
  441.     beep 2
  442.     put "Paid your SHAREWARE FEE yet ? If So‚ÄîTHANKS! If No ‚Äî PLEASE DO"
  443.     wait 5 seconds
  444.     play boing
  445.     hide message box
  446.   end if
  447. end RemShow
  448.  
  449.  
  450.  
  451. on openStack
  452.   visual zoom in
  453.   hide menubar
  454.   hide message box
  455.   show field id 25  --Copyright field-DO NOT REMOVE
  456.   put the long date into field id 2 of card id 2289
  457.   update theDate
  458.   RemShow Meo
  459. end openStack
  460.  
  461.  
  462.  
  463.  
  464.  
  465.  
  466. bkgnd "Schedule"
  467. on closeStack
  468.   global whosThere
  469.   put field id 26 into whosThere
  470.   pass closeStack
  471. end closeStack
  472.  
  473. card "ApptSchedule"
  474. --no script
  475. bkgnd field "Date"
  476.  
  477.  
  478.  
  479. bkgnd field "Nine"
  480. on mouseUp
  481.   show card field id 5
  482.   show card field id 9
  483.   show card field id 10
  484.   show card field id 11
  485.   show card field id 12
  486.   put line 1 of field id 6 into card field id 5
  487.   put line 2 of field id 6 into card field id 9
  488.   put line 3 of field id 6 into card field id 10
  489.   put line 4 of field id 6 into card field id 11
  490. end mouseUp
  491.  
  492.  
  493. bkgnd field "ten"
  494. on mouseUp
  495.   show card field id 5
  496.   show card field id 9
  497.   show card field id 10
  498.   show card field id 11
  499.   show card field id 12
  500.   put line 1 of field id 7 into card field id 5
  501.   put line 2 of field id 7 into card field id 9
  502.   put line 3 of field id 7 into card field id 10
  503.   put line 4 of field id 7 into card field id 11
  504. end mouseUp
  505.  
  506. bkgnd field "eleven"
  507. on mouseUp
  508.   show card field id 5
  509.   show card field id 9
  510.   show card field id 10
  511.   show card field id 11
  512.   show card field id 12
  513.   put line 1 of field id 8 into card field id 5
  514.   put line 2 of field id 8 into card field id 9
  515.   put line 3 of field id 8 into card field id 10
  516.   put line 4 of field id 8 into card field id 11
  517. end mouseUp
  518.  
  519. bkgnd field "twelve"
  520. on mouseUp
  521.   show card field id 5
  522.   show card field id 9
  523.   show card field id 10
  524.   show card field id 11
  525.   show card field id 12
  526.   put line 1 of field id 9 into card field id 5
  527.   put line 2 of field id 9 into card field id 9
  528.   put line 3 of field id 9 into card field id 10
  529.   put line 4 of field id 9 into card field id 11
  530. end mouseUp
  531.  
  532. bkgnd field "one"
  533. on mouseUp
  534.   show card field id 5
  535.   show card field id 9
  536.   show card field id 10
  537.   show card field id 11
  538.   show card field id 12
  539.   put line 1 of field id 10 into card field id 5
  540.   put line 2 of field id 10 into card field id 9
  541.   put line 3 of field id 10 into card field id 10
  542.   put line 4 of field id 10 into card field id 11
  543. end mouseUp
  544.  
  545. bkgnd field "two"
  546. on mouseUp
  547.   show card field id 5
  548.   show card field id 9
  549.   show card field id 10
  550.   show card field id 11
  551.   show card field id 12
  552.   put line 1 of field id 11 into card field id 5
  553.   put line 2 of field id 11 into card field id 9
  554.   put line 3 of field id 11 into card field id 10
  555.   put line 4 of field id 11 into card field id 11
  556. end mouseUp
  557.  
  558.  
  559. bkgnd field "three"
  560. on mouseUp
  561.   show card field id 5
  562.   show card field id 9
  563.   show card field id 10
  564.   show card field id 11
  565.   show card field id 12
  566.   put line 1 of field id 12 into card field id 5
  567.   put line 2 of field id 12 into card field id 9
  568.   put line 3 of field id 12 into card field id 10
  569.   put line 4 of field id 12 into card field id 11
  570. end mouseUp
  571.  
  572. bkgnd field "four"
  573. on mouseUp
  574.   show card field id 5
  575.   show card field id 9
  576.   show card field id 10
  577.   show card field id 11
  578.   show card field id 12
  579.   put line 1 of field id 13 into card field id 5
  580.   put line 2 of field id 13 into card field id 9
  581.   put line 3 of field id 13 into card field id 10
  582.   put line 4 of field id 13 into card field id 11
  583. end mouseUp
  584.  
  585. bkgnd field "five"
  586. on mouseUp
  587.   show card field id 5
  588.   show card field id 9
  589.   show card field id 10
  590.   show card field id 11
  591.   show card field id 12
  592.   put line 1 of field id 14 into card field id 5
  593.   put line 2 of field id 14 into card field id 9
  594.   put line 3 of field id 14 into card field id 10
  595.   put line 4 of field id 14 into card field id 11
  596. end mouseUp
  597.  
  598. bkgnd field "six"
  599. on mouseUp
  600.   show card field id 5
  601.   show card field id 9
  602.   show card field id 10
  603.   show card field id 11
  604.   show card field id 12
  605.   put line 1 of field id 15 into card field id 5
  606.   put line 2 of field id 15 into card field id 9
  607.   put line 3 of field id 15 into card field id 10
  608.   put line 4 of field id 15 into card field id 11
  609. end mouseUp
  610.  
  611. bkgnd field "seven"
  612. on mouseUp
  613.   show card field id 5
  614.   show card field id 9
  615.   show card field id 10
  616.   show card field id 11
  617.   show card field id 12
  618.   put line 1 of field id 16 into card field id 5
  619.   put line 2 of field id 16 into card field id 9
  620.   put line 3 of field id 16 into card field id 10
  621.   put line 4 of field id 16 into card field id 11
  622. end mouseUp
  623.  
  624. bkgnd field "eight"
  625. on mouseUp
  626.   show card field id 5
  627.   show card field id 9
  628.   show card field id 10
  629.   show card field id 11
  630.   show card field id 12
  631.   put line 1 of field id 17 into card field id 5
  632.   put line 2 of field id 17 into card field id 9
  633.   put line 3 of field id 17 into card field id 10
  634.   put line 4 of field id 17 into card field id 11
  635. end mouseUp
  636.  
  637. bkgnd field "Your Name"
  638. --no script
  639.  
  640. bkgnd field "Links"
  641. on mouseUp
  642.   hide bkgnd field id 30
  643. end mouseUp
  644.  
  645. bkgnd field "¬©Copyright"
  646. on mouseUp
  647.   hide field id 25
  648. end mouseUp
  649.  
  650.  
  651.  
  652.  
  653. bkgnd button "Yesterday"
  654. on mouseUp
  655.   visual effect wipe left
  656.   get field id 5
  657.   put it into today
  658.   convert today to seconds
  659.   put (60*60*24) into oneDay
  660.   subtract oneDay from today
  661.   put today into field id 5
  662.   convert field id 5 to long date
  663.   theSchedule schedule
  664. end mouseUp
  665.  
  666.  
  667.  
  668.  
  669. bkgnd button "Tomorrow"
  670. on mouseUp
  671.   visual effect wipe right
  672.   get field id 5
  673.   put it into today
  674.   convert today to seconds
  675.   put (60*60*24) into oneDay
  676.   add oneDay to today
  677.   put today into field id 5
  678.   convert field id 5 to long date
  679.   theSchedule update
  680. end mouseUp
  681.  
  682.  
  683.  
  684.  
  685. bkgnd button "Home"
  686. on mouseUp
  687.   show menubar
  688.   visual effect iris close
  689.   go Home
  690. end mouseUp
  691.  
  692.  
  693.  
  694. bkgnd button "New Appointment Card"
  695. on mouseUp
  696.   visual iris open
  697.   go next background
  698.   doMenu "new Card"
  699. end mouseUp
  700.  
  701.  
  702.  
  703.  
  704. bkgnd button "My Appointment Book"
  705. on mouseUp
  706.   get the date
  707.   put it into temp
  708.   ask "Schedule for Which Day?" with temp
  709.   put it into field id 5
  710.   put it into apptDay
  711.   convert apptDay to seconds
  712.   convert field id 5 to long date
  713.   ask "What is your name, Please?"  with field id 26 --field "Your Name"
  714.   put it into field id 26
  715.   theSchedule schedule
  716. end mouseUp
  717.  
  718.  
  719.  
  720.  
  721. bkgnd button "Printer"
  722. on mouseUp
  723.   answer "What do you wish to print?" with "Cancel" or "Print Card" or "Print All"
  724.   if it is "Cancel" then
  725.     exit mouseUp
  726.   else
  727.     if it is "Print Card" then
  728.       doMenu "Print Card"
  729.       exit mouseUp
  730.     else
  731.       if it is "Print All" then
  732.         ask "Print How Many Days?" with 1
  733.         put it into numOfDays
  734.         open printing with dialog
  735.         repeat with y = 1 to numOfDays
  736.           print this card
  737.           get the number of lines of field id 30
  738.           put it into thisNum
  739.           repeat with x = 1 to thisNum
  740.             get line x of field id 30
  741.             go it
  742.             print this card
  743.             go card id 3049
  744.           end repeat
  745.           send mouseUp to bkgnd button id 22  --"Tomorrow"
  746.           next repeat
  747.         end repeat
  748.         close printing
  749.       end if
  750.     end if
  751.   end if
  752. end mouseUp
  753.  
  754.  
  755. card field "firstQtrHour"
  756. on mouseUp
  757.   get word 1 of card field id 5
  758.   if it is empty then exit mouseUp
  759.   put it into temp1
  760.   hide card field id 5
  761.   hide card field id 9
  762.   hide card field id 10
  763.   hide card field id 11
  764.   hide card field id 12
  765.   put bkgnd field id 5 into temp2
  766.   visual effect zoom in
  767.   go background id 3622
  768.   find temp2 of bkgnd field id 2
  769.   find temp1 of bkgnd field id 1
  770.   play boing
  771. end mouseUp
  772.  
  773.  
  774.  
  775.  
  776. card field "secondQtrHour"
  777. on mouseUp
  778.   get word 1 of card field id 9
  779.   if it is empty then exit mouseUp
  780.   put it into temp1
  781.   hide card field id 5
  782.   hide card field id 9
  783.   hide card field id 10
  784.   hide card field id 11
  785.   hide card field id 12
  786.   put bkgnd field id 5 into temp2
  787.   visual effect zoom in
  788.   go background id 3622
  789.   find temp2 of bkgnd field id 2
  790.   find temp1 of bkgnd field id 1
  791.   play boing
  792. end mouseUp
  793.  
  794.  
  795. card field "thirdQtrHour"
  796. on mouseUp
  797.   get word 1 of card field id 10
  798.   if it is empty then exit mouseUp
  799.   put it into temp1
  800.   hide card field id 5
  801.   hide card field id 9
  802.   hide card field id 10
  803.   hide card field id 11
  804.   hide card field id 12
  805.   put bkgnd field id 5 into temp2
  806.   visual effect zoom in
  807.   go background id 3622
  808.   find temp2 of bkgnd field id 2
  809.   find temp1 of bkgnd field id 1
  810.   play boing
  811. end mouseUp
  812.  
  813.  
  814. card field "fourthQtrHour"
  815. on mouseUp
  816.   get word 1 of card field id 11
  817.   if it is empty then exit mouseUp
  818.   put it into temp1
  819.   hide card field id 5
  820.   hide card field id 9
  821.   hide card field id 10
  822.   hide card field id 11
  823.   hide card field id 12
  824.   put bkgnd field id 5 into temp2
  825.   visual effect zoom in
  826.   go background id 3622
  827.   find temp2 of bkgnd field id 2
  828.   find temp1 of bkgnd field id 1
  829.   play boing
  830. end mouseUp
  831.  
  832.  
  833. card field "infoField"
  834. on mouseUp
  835.   hide card field id 12
  836.   hide card field id 5
  837.   hide card field id 9
  838.   hide card field id 10
  839.   hide card field id 11
  840.   put "Smile it creates Happiness." into message
  841.   wait 2 seconds
  842.   hide message box
  843.   hide menubar
  844. end mouseUp
  845.  
  846. This is the end of the scripts for card #1
  847.  
  848.  
  849.  
  850. -- part 31 (field)
  851. -- low flags: 80
  852. -- high flags: 0007
  853. -- rect: left=17 top=52 right=299 bottom=489
  854. -- title width / last selected line: 0
  855. -- icon id / first selected line: 0 / 0
  856. -- text alignment: 0
  857. -- font id: 3
  858. -- text size: 12
  859. -- style flags: 0
  860. -- line height: 16
  861. -- part name: Help
  862.  
  863.  
  864. -- part contents for background part 25
  865. ----- text -----
  866.  
  867. AppointmentMaster ver. 1.1.1 ¬©1988
  868. by James Carl Casebier, Jr.
  869. 105 Center Street ‚ÄîBox 172 
  870. Hartford, Kentucky 42347, USA
  871.  
  872. All rights reserved
  873. ––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––
  874. This HyperCard‚Ñ¢ Stack is ShareWare
  875. Try it out. If you like it and want to use it
  876. Please send $20.00 to the author at the above address.....
  877.  
  878. >>>Otherwise please trash the stack and  Honor Shareware Fees.<<< 
  879. –––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––
  880. Documentation & the latest version of AppointmentMaster‚Ñ¢ will be sent to you upon reciept of your payment.  Registered users will be notified of future updates and other new programs and applications as they develop
  881. from U‚ÄîCompute‚Äîit‚Ñ¢
  882.  
  883. HyperCard‚Ñ¢ is a trademark of Apple Computer, Inc.
  884. AppointmentMaster‚Ñ¢ ¬©1988 is the property  of U‚ÄîCompute‚ÄîIt‚Ñ¢
  885.  
  886.  
  887.  
  888.  
  889. -- part contents for card part 12
  890. ----- text -----
  891. ****Info—Field****
  892. ‚ÄîClick Here to cancel‚Äî
  893.  
  894. Click below
  895. on the appointment
  896. you wish to modify
  897.  
  898.  
  899. -- part contents for background part 26
  900. ----- text -----
  901. John
  902.  
  903. -- part contents for card part 23
  904. ----- text -----
  905. To see and print the scripts of the stack and of card #1 ‚Äîopen the script of this field:
  906. (1) Select the field tool from the tools menu.  If the menubar is not visible type command
  907.       and the spacebar to make it visible.
  908. (2) Hold down the shift key while  double clicking on this field.
  909. (3) To print click on the print button.   There are 12 pages.
  910.  
  911. THIS IS CARD FIELD ID 23
  912. When you are finished with this field type: hide card field id 23 into the message box
  913.  
  914.  
  915. -- part contents for background part 5
  916. ----- text -----
  917. Wednesday, June 1, 1988
  918.  
  919. -- part contents for card part 5
  920. ----- text -----
  921. Your ‚ÄîIntroduction to AppointmentMas
  922.  
  923. -- part contents for card part 10
  924. ----- text -----
  925. HyperExpo & StackMart ‚ÄîConference & 
  926.  
  927. -- part contents for card part 31
  928. ----- text -----
  929. AppointmentMaster‚Ñ¢ v 1.1.1 ¬©1988
  930. THE SCRIPTS:
  931. BACKGROUND 1
  932. A.  To see and print the Scripts of the Stack and of Background #1:
  933. (1) Go to Card 1-- click on the "Go to Schedule" button.
  934. (2) Type "Show card field id 23" into the message box (without the "")
  935. then press the return key.
  936. B.  Open the script of Card field id 23 of Card 1 of bkgnd one:
  937. (1) Select the field tool from the tools menu.
  938. (2) Hold down the shift key while  double clicking on Card field id 23.
  939. (3) To print click on the print button.   There are 12 pages.
  940. (4) When you are finished looking or printing‚ÄîType "Hide card field id 23" into the message box. OR DELETE THE FIELD IF YOU WANT TO CONSERVE DISKSPACE.
  941. BACKGROUND 2
  942. A.  To see and print the Scripts of Background #2:
  943. (1) Go to Background 2 --You should be there now.
  944. (2) Type "Show field id 68" into the message box (without the "")
  945. B.  Then open the script of bkgnd field id 68 of Background 2.
  946. (1) Select the field tool from the tools menu.
  947. (2) Hold down the shift key while  double clicking on field id 68.
  948. (3) To print click on the print button.   There are 8 pages.
  949. (4) When you are finished looking or printing‚ÄîType "Hide bkgnd field¬¨
  950. id 68" into the message box. OR DELETE THE FIELD IF YOU WANT TO CONSERVE DISKSPACE.--If message box is not visible type command M to make it visible.
  951.  
  952. INTRODUCTION:
  953. AppointmentMaster‚Ñ¢ v 1.1.1 consists of two distinct background fields and two cards initially.
  954.  
  955. CARD #1 "ApptSchedule" of Background #1 "Schedule"  contains:
  956. ‚Ä¢ 17 Background fields
  957. ‚Ä¢   6 Background buttons
  958. ‚Ä¢   5 Card fields  --(6 if you count card field id 23. See above) which can be deleted.
  959. ‚Ä¢   0 Card buttons
  960. This is an automatic card, meaning there is no user input into it.  The stack is programmed to gather information stored on other individual input cards‚Äîof which card two is an example.
  961.  
  962. CARD #2 "FirstCardOfApptCards" of Bkgnd #2 "AppointmentCard" contains:
  963. ‚Ä¢ 15 Background fields --(16 if you count bkgnd field id 68.  See above)
  964. ‚Ä¢ 10 Background buttons
  965. ‚Ä¢   0 Card Fields
  966. ‚Ä¢   0 Card buttons
  967.  
  968. SPECIFICATIONS:
  969. A. The stack size is normally 38 K to begin with.  However it contains
  970. a hidden card field for Bkgnd #1 (card field id 23) which contains
  971. the scripts for the Stack, background and card. There is a hidden BKGND FIELD for Background #2, that contains the Scripts for the Background 
  972. for Card #2, thereby increasing the stack size to 74K.  These two fields
  973. can be printed out if you desire to do so and then removed from your
  974. working copy in order to conserve disk space.  Thereby reducing the size
  975. back to its' initial 38 K.
  976.  
  977. B.  AppointmentMaster‚Ñ¢ v 1.1.1 is capable of handling 48 appointments per day for each individual, between the hours of 9:00 am and 9:00 pm.
  978. The time span it can cover and the number of individual people it can handle is limited only by the available disk space of the user.  It is especially good in a small business enivronment where one secretary or receptionist must manage the appointment schedules of several people.
  979.  
  980. REQUIREMENTS:
  981. A.  To use this stack you must have HyperCard‚Ñ¢‚Äîsoftware by Apple Computer, Inc.
  982. B.  Either a Mac Plus, Mac SE, or Mac II computer.  A hard disk is recommended.  The program was written using a Mac Plus with only the internal 800 K drive and literally hundreds (perhaps thousands) of disk swaps.   NOT RECOMMENDED.
  983.  
  984. HOW TO USE THIS STACK:
  985. A.  If you have not already done so‚Äîmake a copy by starting up with another disk which contains your current system and opens to the finder.  Then drag the "Time management Folder" (which contains AppointmentMaster‚Ñ¢) onto your hard disk.  When you have accomplished this then click on the AppointmentMaster Icon to open the stack.  You will be presented a dialog box which asks "WHAT IS YOUR NAME, PLEASE?" It will have "Your Name Here" already selected .  Click on the OK button this first time.  You will then see the copyright screen.  Click on the copyright screen and you will then be presented with the first card of the stack. NEXT‚Äî Click on the Appointment Book (on the left side of your screen), When the dialog box appears type: 6-11-88  and click "OK". When the schedule for June 11, 1988 appears‚Äî Line one of the schedule should read:  "Your‚ÄîIntroduction to AppointmentMas".  Click on this line and 5 new card fields will appear, then click on the field that reads: 
  986. "Your‚ÄîIntroduction to AppointmentMaster‚Ñ¢".  This will take you to the next background and Card two.  The first field "With Who" contains the word "YOUR", the second field contains the date and the third field contains 0900.  The fourth field contains "INTRODUCTION TO APPOINTMENTMASTER‚Ñ¢".  You will notice that Card #1 does not contain the trademark sign "‚Ñ¢" that you see in field four (Appointment Details), the reason for this is‚Äîwhen card #1 makes the schedule it puts the persons name who the appointment is with and the appointment details into the correct time line of the schedule.  It then counts the number of total characters and enters only 34 characters into each line.  This prevents over-writing another appointment.
  987.   Now click on the new appointment card button and when you are asked your name.  Enter your name and fill in the remaining fields.  It is not necessary that all fields be completed.  HOWEVER, it is necessary that fields: "With Who", "Date", "Time" and "My Name Is:" be completed.  After you have filled in the card, click on the "Go to Schedule" button at the top right of the screen.  This will take you to the schedule card and your new appointment will fill in automatically.
  988. That's basically all there is to it.
  989. NOTE:  When entering the time you may do so in any one of the following three formats:
  990. a.  9,10,11,12,1,2,3,4,5,6,7, or 8 for hourly times.
  991. b.  910,1014, 1125, 1230, 145, 215, 310, etc for other times.
  992. c. 0900, 1020, 1145, 1250, 1315, 1430, 1545, etc for chrono or military time.
  993. Regardless of the format you use when the time field closes it will be converted to format (c) above.
  994. CAUTION:  DO NOT ENTER COLONS ":"  OR SEMICOLONS ";" OR COMMAS "," OR ANY OTHER SEPERATORS OR A.M. OR P.M. when entering the time.
  995.  
  996. ANOTHER NOTE: you will notice a button on card two called "Closer Look", it is represented by the magifiying glass.  When you click on this button the screen will change by bringing up three previously hidden fields and a hidden button.  These fields will tell you how many appointments you have for that day and what the appointment times are, with the current cards appointment time selected with a rectangle.  You can click on any appointment time in the scrollable field and go to that appointment card.
  997.  
  998. ‚Ä¢‚Ä¢‚Ä¢[CAUTION: DO NOT EVER, EVER, EVER... MOVE THIS FIELD (the one containing the appointment times) AROUND ON THE SCREEN, AS IT WILL CEASE TO FUNCTION PROPERLY‚ÄîITS LOCATION IS USED IN THE PROGRAMMING WHICH HELPS IN FINDING THE RIGHT CARD WHEN THE TIME IS CLICKED ON].
  999.  
  1000. You now have what I like to think of as an infinity time planner and schedule.  The rest is up to you.  GOOD INPUT = GOOD OUTPUT.
  1001.  
  1002. You may give a copy of this program to anyone for their own personal use as long as the copyright notice has not been removed from the copy you give away and  the receipent is told AppointmentMaster‚Ñ¢ is shareware.
  1003. Fee $20
  1004. Payable to:
  1005.  J. Casebier-Box 172-Hartford, Kentucky USA
  1006.  
  1007. NOTICE: HyperCard‚Ñ¢, Mac Plus, Mac SE, Mac II, and Macintosh are trademarks
  1008. of Apple Computer, Inc.  Apple Computer, Inc. is not responsible or
  1009. liable either in whole or in any part for this program or the results
  1010. of using it.
  1011. AppointmentMaster‚Ñ¢ is a trademark of J. Casebier & U‚ÄîCompute‚ÄîIt‚Ñ¢
  1012. ‚ÄîBox 172, Hartford, Kentucky  42347, USA and neither
  1013. are responsible for loss of any data as a result of using this program.
  1014. BACK UP YOUR DATA OFTEN IS A GOOD AND SAFE RULE TO FOLLOW.
  1015.  
  1016. ACKNOWLEDGEMENTS:
  1017. I wish to express my Special Thanks to all of you who made this program possible.
  1018. GOD, JESUS, and THE HOLY SPIRIT.
  1019. My Dearest Wife Joyce for her encouragement and support.
  1020. My Beloved Mother for more than I could ever hope to express here.
  1021. The Original Mac Team for their vision.
  1022. Apple Computer, Inc.
  1023. The Apple Programmers's and Developers Association.
  1024. Bill Atkinson for HyperCard‚Ñ¢.
  1025. Danny Goodman for his book "The Complete HyperCard Handbook"
  1026. Dan Shafer for his book " HyperTalk Programming"
  1027. and America for the Opportunity.
  1028. Thank You. One and All ‚Äî I Love You.
  1029. And to YOU whoever you are that becomes the ultimate end-user let me say, It is my sincere hope that this small endeavor will be of lasting value and aid to you in the efficient and effective management of YOUR MOST VALUABLE ASSET‚ÄîYOUR TIME.
  1030. GOOD BYE.  HAVE A GREAT FOREVER and May GOD, the Father of us all richly Bless YOU.
  1031. James C. Casebier, Jr.
  1032. Chief Hospital Corpsman
  1033. United States Navy Retired
  1034. Founder & President  of U-Compute-it‚Ñ¢ ‚Ä¢Turning Dreams into Realities
  1035. 105 Center Street ‚ÄîBox 172
  1036. Hartford, Kentucky 42347, USA
  1037.